home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b6.d64
/
shellsort.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
281b
|
17 lines
9000 PROC SHELLSORT(REF A(),M,N) CLOSED
9010 P:=N
9020 WHILE P>1 DO
9030 P:=P DIV 2
9040 REPEAT
9050 D:=TRUE
9060 FOR J:=M TO N-P DO
9070 I:=J+P
9080 IF A(J)>A(I) THEN
9090 SWAP(A(I),A(J))
9100 D:=FALSE
9110 ENDIF
9120 ENDFOR J
9130 UNTIL D
9140 ENDWHILE
9150 ENDPROC SHELLSORT